home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
mov2prd.arc
/
DLTOBJ.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-12-04
|
1KB
|
24 lines
DLTOBJ: CMD PROMPT('Delete an Object')
/* DLTOBJ */
/* Command Processing Program is QLIDLOBJ.QSYS */
/* Note: You must be QSECOFR to compile this. */
/* (c) 1986 by Cozzi Research Company */
PARM KWD(OBJ) TYPE(OBJ) MIN(1) PROMPT('Object name +
to delete-Generic*')
PARM KWD(TYPE) TYPE(*CHAR) LEN(7) RSTD(*YES) +
SPCVAL((*CLS CLS) (*CMD CMD) (*CUD CUD) +
(*DEVD DEVD) (*DTAARA DTAARA) (*DTAQ DTAQ) +
(*EDTD EDTD) (*FCT FCT) (*FILE FILE) (*GSS +
GSS) (*JOBD JOBD) (*JOBQ JOBQ) (*JRN JRN) +
(*JRNRCV JRNRCV) (*LIND LIND) (*MSGF MSGF) +
(*MSGQ MSGQ) (*OUTQ OUTQ) (*PGM PGM) +
(*PRTIMG PRTIMG) (*SPADCT SPADCT) (*SBSD +
SBSD) (*SSND SSND) (*TBL TBL)) MIN(1) +
PROMPT('Type of Object to Delete:')
OBJ: QUAL TYPE(*GENERIC) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
EXPR(*YES) PROMPT('Library containing +
Object:')